home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Foxpro 2.6 {Windows} / LASERCA1.PR_ / LASERCA1.bin
Text File  |  1994-03-10  |  486b  |  30 lines
  1. PARAMETER ncat
  2. categ = "Other"
  3. DO CASE ncat
  4. CASE ncat = 1
  5.     categ = "Action"
  6. CASE ncat = 2
  7.     categ = "Mystery/Suspense"
  8. CASE ncat = 3
  9.     categ = "Children"
  10. CASE ncat = 4
  11.     categ = "Comedy"
  12. CASE ncat = 5
  13.     categ = "Documentary"
  14. CASE ncat = 6
  15.     categ = "Drama"
  16. CASE ncat = 7
  17.     categ = "Foreign"
  18. CASE ncat = 8
  19.     categ = "Horror"
  20. CASE ncat = 9
  21.     categ = "Music/Opera"
  22. CASE ncat = 10
  23.     categ = "Musicals"
  24. CASE ncat = 11
  25.     categ = "Science Fiction"
  26. CASE ncat = 12
  27.     categ = "Western"
  28. ENDCASE
  29. RETURN categ
  30.